home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / tools / cdc / src / cdrd.s < prev    next >
Text File  |  1997-02-18  |  27KB  |  1,508 lines
  1. NoCdDisp:
  2.     .dc.b    '      【ＣＤＣ】 (c)TNB製作所       ',0
  3.     .even
  4. JcBxDisp:    *012345678901234567890123456789012345678
  5. *    .dc.b    '         Juke Box【ＣＤＣ】         ',0
  6.     .dc.b    '      Ｊｕｋｅ Ｂｏｘ★ＣＤＣ       ',0
  7.     .even
  8. VN_LR:    .dc.b    '              -------               ',0
  9.     .even
  10.  
  11. DrawLeds:*---------------------------------------
  12.     *
  13.     *    表示用 
  14.     *
  15.     tst.w    _DisMode            *0;非表示 1;表示 2;Small表示
  16.     bne    @f
  17.     rts
  18. @@:    move.w    $00e8002a,-(sp)
  19.     clr.w    $00e8002a
  20.     lea    _LEDBUF(pc),a0
  21.     movea.l    _DRAWADDS(pc),a1
  22.     movea.l    a1,a2
  23.     adda.l    #$20000,a1    *プレーン４
  24.     moveq    #$FF,d1
  25.     moveq    #10-1,d0
  26. @@:
  27.     move.b    (a0)+,(a1)
  28.     move.b    (a0)+,$80(a1)
  29.     move.b    (a0)+,$80*2(a1)
  30.     move.b    (a0)+,$80*3(a1)
  31.     move.b    (a0)+,$80*4(a1)
  32.     move.b    (a0)+,$80*5(a1)
  33.     move.b    (a0)+,$80*6(a1)
  34.     move.b    (a0)+,$80*7(a1)
  35.     move.b    (a0)+,$80*8(a1)
  36.     move.b    (a0)+,$80*9(a1)
  37.     move.b    (a0)+,$80*10(a1)
  38.     move.b    (a0)+,$80*11(a1)
  39.     move.b    (a0)+,$80*12(a1)
  40.     move.b    (a0)+,$80*13(a1)
  41.     move.b    (a0)+,$80*14(a1)
  42.     move.b    (a0)+,$80*15(a1)
  43.     *move.b    d1,(a2)
  44.     move.b    d1,$80(a2)
  45.     move.b    d1,$80*2(a2)
  46.     move.b    d1,$80*3(a2)
  47.     move.b    d1,$80*4(a2)
  48.     move.b    d1,$80*5(a2)
  49.     move.b    d1,$80*6(a2)
  50.     move.b    d1,$80*7(a2)
  51.     move.b    d1,$80*8(a2)
  52.     move.b    d1,$80*9(a2)
  53.     move.b    d1,$80*10(a2)
  54.     move.b    d1,$80*11(a2)
  55.     move.b    d1,$80*12(a2)
  56.     move.b    d1,$80*13(a2)
  57.     move.b    d1,$80*14(a2)
  58.     move.b    d1,$80*15(a2)
  59.     move.b    d1,(a2)+
  60.     addq.l    #1,a1
  61.     dbra    d0,@b
  62.  
  63.     cmpi.w    #2,_DisMode            *0;非表示 1;表示 2;Small表示
  64.     beq    1f
  65.  
  66.     addq.l    #1,a1
  67.     addq.l    #1,a2
  68.     moveq    #36-1,d0
  69. @@:
  70.     move.b    (a0)+,(a1)
  71.     move.b    (a0)+,$80(a1)
  72.     move.b    (a0)+,$80*2(a1)
  73.     move.b    (a0)+,$80*3(a1)
  74.     move.b    (a0)+,$80*4(a1)
  75.     move.b    (a0)+,$80*5(a1)
  76.     move.b    (a0)+,$80*6(a1)
  77.     move.b    (a0)+,$80*7(a1)
  78.     move.b    (a0)+,$80*8(a1)
  79.     move.b    (a0)+,$80*9(a1)
  80.     move.b    (a0)+,$80*10(a1)
  81.     move.b    (a0)+,$80*11(a1)
  82.     move.b    (a0)+,$80*12(a1)
  83.     move.b    (a0)+,$80*13(a1)
  84.     move.b    (a0)+,$80*14(a1)
  85.     move.b    (a0)+,$80*15(a1)
  86.     *move.b    d1,(a2)
  87.     move.b    d1,$80(a2)
  88.     move.b    d1,$80*2(a2)
  89.     move.b    d1,$80*3(a2)
  90.     move.b    d1,$80*4(a2)
  91.     move.b    d1,$80*5(a2)
  92.     move.b    d1,$80*6(a2)
  93.     move.b    d1,$80*7(a2)
  94.     move.b    d1,$80*8(a2)
  95.     move.b    d1,$80*9(a2)
  96.     move.b    d1,$80*10(a2)
  97.     move.b    d1,$80*11(a2)
  98.     move.b    d1,$80*12(a2)
  99.     move.b    d1,$80*13(a2)
  100.     move.b    d1,$80*14(a2)
  101.     move.b    d1,$80*15(a2)
  102.     move.b    d1,(a2)+
  103.     addq.l    #1,a1
  104.     dbra    d0,@b
  105. 1:
  106.     move.w    (sp)+,$00e8002a
  107.     rts
  108.  
  109. KillLeds:*---------------------------------------
  110.     *
  111.     *    消し用 
  112.     *
  113.     tst.w    _DisMode            *0;非表示 1;表示 2;Small表示
  114.     bne    @f
  115.     rts
  116. @@:    move.w    $00e8002a,-(sp)
  117.     clr.w    $00e8002a
  118.     movea.l    _DRAWADDS(pc),a1
  119.     movea.l    a1,a2
  120.     adda.l    #$20000,a1    *プレーン４
  121.     moveq    #0,d1
  122.     moveq    #10-1,d0
  123. @@:
  124.     *move.b    d1,(a1)
  125.     move.b    d1,$80(a1)
  126.     move.b    d1,$80*2(a1)
  127.     move.b    d1,$80*3(a1)
  128.     move.b    d1,$80*4(a1)
  129.     move.b    d1,$80*5(a1)
  130.     move.b    d1,$80*6(a1)
  131.     move.b    d1,$80*7(a1)
  132.     move.b    d1,$80*8(a1)
  133.     move.b    d1,$80*9(a1)
  134.     move.b    d1,$80*10(a1)
  135.     move.b    d1,$80*11(a1)
  136.     move.b    d1,$80*12(a1)
  137.     move.b    d1,$80*13(a1)
  138.     move.b    d1,$80*14(a1)
  139.     move.b    d1,$80*15(a1)
  140.     *move.b    d1,(a2)
  141.     move.b    d1,$80(a2)
  142.     move.b    d1,$80*2(a2)
  143.     move.b    d1,$80*3(a2)
  144.     move.b    d1,$80*4(a2)
  145.     move.b    d1,$80*5(a2)
  146.     move.b    d1,$80*6(a2)
  147.     move.b    d1,$80*7(a2)
  148.     move.b    d1,$80*8(a2)
  149.     move.b    d1,$80*9(a2)
  150.     move.b    d1,$80*10(a2)
  151.     move.b    d1,$80*11(a2)
  152.     move.b    d1,$80*12(a2)
  153.     move.b    d1,$80*13(a2)
  154.     move.b    d1,$80*14(a2)
  155.     move.b    d1,$80*15(a2)
  156.     move.b    d1,(a1)+
  157.     move.b    d1,(a2)+
  158.     dbra    d0,@b
  159.  
  160.     addq.l    #1,a1
  161.     addq.l    #1,a2
  162.     moveq    #36-1,d0
  163. @@:
  164.     *move.b    d1,(a1)
  165.     move.b    d1,$80(a1)
  166.     move.b    d1,$80*2(a1)
  167.     move.b    d1,$80*3(a1)
  168.     move.b    d1,$80*4(a1)
  169.     move.b    d1,$80*5(a1)
  170.     move.b    d1,$80*6(a1)
  171.     move.b    d1,$80*7(a1)
  172.     move.b    d1,$80*8(a1)
  173.     move.b    d1,$80*9(a1)
  174.     move.b    d1,$80*10(a1)
  175.     move.b    d1,$80*11(a1)
  176.     move.b    d1,$80*12(a1)
  177.     move.b    d1,$80*13(a1)
  178.     move.b    d1,$80*14(a1)
  179.     move.b    d1,$80*15(a1)
  180.     *move.b    d1,(a2)
  181.     move.b    d1,$80(a2)
  182.     move.b    d1,$80*2(a2)
  183.     move.b    d1,$80*3(a2)
  184.     move.b    d1,$80*4(a2)
  185.     move.b    d1,$80*5(a2)
  186.     move.b    d1,$80*6(a2)
  187.     move.b    d1,$80*7(a2)
  188.     move.b    d1,$80*8(a2)
  189.     move.b    d1,$80*9(a2)
  190.     move.b    d1,$80*10(a2)
  191.     move.b    d1,$80*11(a2)
  192.     move.b    d1,$80*12(a2)
  193.     move.b    d1,$80*13(a2)
  194.     move.b    d1,$80*14(a2)
  195.     move.b    d1,$80*15(a2)
  196.     move.b    d1,(a1)+
  197.     move.b    d1,(a2)+
  198.     dbra    d0,@b
  199.     move.w    (sp)+,$00e8002a
  200.     rts
  201.  
  202. _B_KLE_M:*----------------------------------------
  203.     *
  204.     *    メモリング用表示
  205.     *
  206.     clr.w    _DisSuuzi10 * LED用数字クリア
  207.     bsr    FncBarC
  208.     bsr    FncBarM
  209.     *bsr    FncBar
  210.     bsr    FnkBerChk
  211.     beq    @f
  212.     bsr    DrawLeds
  213. @@:
  214.     *move.w    #1,_LEDVMOD
  215.         clr.w    _LEDVMOD
  216.     moveq    #0,d0
  217.     rts
  218.  
  219. _B_KLE_D2:*----------------------------------------
  220.     *
  221.     *   LEDVMODをチェック&直接CDをチェックし表示
  222.     *
  223.     tst.w    _LEDVMOD
  224.     beq    _B_KLE_D
  225.     rts
  226. _B_KLE_D:*----------------------------------------
  227.     *
  228.     *    直接CDをチェックし表示
  229.     *
  230.     move.w    #-1,_MemPtV    *MEM確認表示用メモリポインタ
  231.     clr.w    _DisSuuzi10    * LED用数字クリア
  232.     bsr    FncBarC
  233.     bsr    FncBar2
  234.     bsr    FncBar
  235.     bsr    FnkBerChk
  236.     beq    @f
  237.     bsr    DrawLeds
  238. @@:
  239.     clr.w    _LEDVMOD
  240.     moveq    #0,d0
  241.     rts
  242.  
  243. _B_KLE_H:*----------------------------------------
  244.     *
  245.     *    [HOME]キー用MAX表示
  246.     *
  247.     move.w    #-1,_MemPtV    *MEM確認表示用メモリポインタ
  248.     clr.w    _DisSuuzi10    * LED用数字クリア
  249.     bsr    FncBarC
  250.     bsr    FncBar3
  251.     *bsr    FncBar
  252.     bsr    FnkBerChk
  253.     beq    @f
  254.     bsr    DrawLeds
  255. @@:
  256.     clr.w    _LEDVMOD
  257.     moveq    #0,d0
  258.     rts
  259.  
  260. _B_KLE_K:*----------------------------------------
  261.     *
  262.     *    数値入力時
  263.     *
  264.     move.w    #-1,_MemPtV        *確認表示用メモリポインタ
  265.     bsr    FncBarC
  266.     bsr    FncBarK
  267.     *bsr    FncBar
  268.     bsr    FnkBerChk
  269.     beq    @f
  270.     bsr    DrawLeds
  271. @@:
  272.     move.w    #1,_LEDVMOD
  273.     moveq    #0,d0
  274.     rts
  275.  
  276. _B_KLE_S:*----------------------------------------
  277.     *
  278.     *    シーク用表示
  279.     *        d0=MSF
  280.     *        d1=向き    0:rew 1;ff
  281.     *
  282.     move.w    #-1,_MemPtV    *MEM確認表示用メモリポインタ
  283.     clr.w    _DisSuuzi10    * LED用数字クリア
  284.     move.l    d1,-(sp)
  285.      move.l    d0,-(sp)
  286.      bsr    FncBarC
  287.      move.l    (sp)+,d0
  288.      bsr    FncBarS
  289.      bsr    FncBar
  290.  
  291.     andi.l    #$FFFFFFE0,_Ledflg    *LEDその他の状態
  292.     ori.l    #%10000,_Ledflg        *LEDその他の状態
  293.     lea    LedREW(pc),a1
  294.     move.l    (sp)+,d1
  295.     beq    @f
  296.     lea    LedFF(pc),a1
  297.     ori.l    #%01000,_Ledflg        *LEDその他の状態
  298. @@:    lea    _LEDBUF(pc),a0
  299.     *bsr    SetLedPat
  300.     move.l    (a1)+,(a0)+
  301.     move.l    (a1),(a0)
  302.     bsr    FnkBerChk
  303.     beq    @f
  304.     bsr    DrawLeds
  305. @@:
  306.     move.w    #1,_LEDVMOD
  307.     moveq    #0,d1
  308.     rts
  309.  
  310. _B_KLE_LD:*----------------------------------------
  311.     *
  312.     *    CDチェック中
  313.     *
  314.     bsr    FncBarC
  315.     clr.b    _CdName
  316.     clr.l    -(sp)
  317.     pea    LoadDisp(pc)
  318.     bsr    _SetNameLed
  319.     addq.l    #8,sp
  320.     bsr    FnkBerChk
  321.     beq    @f
  322.     bsr    DrawLeds
  323. @@:
  324.     clr.w    _LEDVMOD
  325.     moveq    #0,d0
  326.     rts
  327. LoadDisp:
  328.     .dc.b    'NOW LOADING',0
  329.     .even
  330.  
  331. _B_KLE_V:*----------------------------------------
  332.     *
  333.     *    ボリュームキー用表示
  334.     *
  335.     move.w    #-1,_MemPtV    *MEM確認表示用メモリポインタ
  336.     clr.w    _DisSuuzi10    * LED用数字クリア
  337.     bsr    FncBarC
  338.     bsr    FncBarV
  339.     *bsr    FncBar
  340.     bsr    FnkBerChk
  341.     beq    @f
  342.     bsr    DrawLeds
  343. @@:
  344.     clr.w    _LEDVMOD
  345.     moveq    #0,d0
  346.     rts
  347.  
  348.  
  349. FnkBerChk:*----------------------------------------
  350.     *
  351.     *bne    表示出来る
  352.     *beq    表示出来ない
  353.     *
  354.     tst.w    _CdcMode    *0:停止中
  355.     bne    @f
  356.     moveq    #0,d0
  357.     rts
  358. @@:
  359.     tst.w    _DisMode            *0;非表示 1;表示 2;Small表示
  360.     bne    @f
  361.     moveq    #0,d0
  362.     rts
  363. @@:
  364.     btst.b    #5,$E82601    *TEXT 表示オン?!
  365.     bne    @f
  366.     moveq    #0,d0
  367.     rts
  368. @@:
  369. *    move.w    $E82200+8*2,d0    *TEXT カラーチェック 0なら
  370. *    bne    @f
  371. *    moveq    #0,d0
  372. *    rts
  373. *@@:
  374.     tst.w    _DisForce    * 0 ; ノーマル 1 ; テキストを使っていても表示させる!!
  375.     bne    @f
  376.     moveq    #1,d1
  377.     moveq    #-1,d2
  378.     *IOCS    _TGUSEMD
  379.         movea.l    $400+_TGUSEMD*4,a0
  380.         jsr    (a0)
  381.     cmpi.w    #2,d0
  382.     rts
  383. @@:
  384.     moveq    #1,d1
  385.     moveq    #-1,d2
  386.     *IOCS    _TGUSEMD
  387.         movea.l    $400+_TGUSEMD*4,a0
  388.         jsr    (a0)
  389.     cmpi.w    #2,d0
  390.     beq    @f
  391.     clr.w    _DisForce    * 0 ; ノーマル 1 ; テキストを使っていても表示させる!!
  392. @@:    moveq    #-1,d0
  393.     rts
  394.  
  395.  
  396. FncBarC:*-------------------------------------------------
  397.     *
  398.     *    ファンクバー表示 クリア
  399.     *
  400.         ****パッファクリア
  401.     lea    _LEDBUF(pc),a0
  402.     moveq    #-1,d1
  403.     move.w    #(10*16)/4/2-1,d0
  404. @@:    move.l    d1,(a0)+
  405.     move.l    d1,(a0)+
  406.     dbra    d0,@b
  407.     clr.l    _Ledprg        *LED数値 プログラムナンバー
  408.     clr.l    _Ledflg        *LEDその他の状態
  409.     clr.l    _Ledtim
  410.     rts
  411. *_FncBarC:*--------------
  412. *    lea    _NAMEBUF(pc),a0
  413. *    moveq    #0,d1
  414. *    move.w    #(40*16)/4/4-1,d0
  415. *@@:    move.l    d1,(a0)+
  416. *    move.l    d1,(a0)+
  417. *    move.l    d1,(a0)+
  418. *    move.l    d1,(a0)+
  419. *    dbra    d0,@b
  420. *    move.l    d0,_SetNameAdd    *clr
  421. *    rts
  422.  
  423. FncBar:*-------------------------------------------------
  424.     *
  425.     *    ファンクバー表示 基本部
  426.     *
  427.         ****左上 LED
  428.     move.w    _TrkNo,d0
  429.     beq    FB_L1
  430.         *演奏中?
  431.     lea    LedPlay(pc),a1
  432.     andi.l    #$FFFFFFE0,_Ledflg    *LEDその他の状態
  433.     ori.l    #%00010,_Ledflg        *LEDその他の状態
  434.     move.w    _PauseMode(pc),d0    *0:特に 1:ポーズ中
  435.     beq    FB_L2
  436.     lea    LedPause(pc),a1
  437.     andi.l    #$FFFFFFE0,_Ledflg    *LEDその他の状態
  438.     ori.l    #%00100,_Ledflg        *LEDその他の状態
  439.     bra    FB_L2
  440. FB_L1:
  441.     lea    LedStop(pc),a1
  442.     tst.w    _DtTrak
  443.     bpl    @f
  444.     lea    LedNoAudio(pc),a1
  445. @@:    andi.l    #$FFFFFFE0,_Ledflg    *LEDその他の状態
  446.     ori.l    #%00001,_Ledflg        *LEDその他の状態
  447. FB_L2:
  448.     lea    _LEDBUF(pc),a0
  449.     *bsr    SetLedPat
  450.     move.l    (a1)+,(a0)+
  451.     move.l    (a1),(a0)
  452.         ****左下 LED
  453.     move.w    _AutoMode(pc),d0    *0:ﾉｰﾏﾙ 1:オート
  454.     beq    @f
  455.     lea    LedLoop(pc),a1
  456.     ori.l    #%01_00000,_Ledflg    *LEDその他の状態
  457.     bra    FB_L3
  458. @@:    move.w    _ReptMode(pc),d0    *0:ﾉｰﾏﾙ 1:リピート
  459.     beq    @f
  460.     lea    LedRept(pc),a1
  461.     ori.l    #%10_00000,_Ledflg    *LEDその他の状態
  462. FB_L3:    lea    _LEDBUF+8(pc),a0
  463.     *bsr    SetLedPat
  464.     move.l    (a1)+,(a0)+
  465.     move.l    (a1),(a0)
  466. @@:
  467.         ****右上 LED
  468.     move.w    _MemLong(pc),d0        *メモリながさ 0以外ならMEMORY
  469.     beq    @f
  470.     ori.l    #%1_0_00_00000,_Ledflg    *LEDその他の状態
  471.     lea    LedMem(pc),a1
  472.     lea    _LEDBUF+9*16(pc),a0
  473.     *bsr    SetLedPat
  474.     move.l    (a1)+,(a0)+
  475.     move.l    (a1),(a0)
  476. @@:
  477.         ****右下 LED
  478.     move.w    _RndMode(pc),d0        *0:ﾉｰﾏﾙ 1:ランダム
  479.     beq    @f
  480.     ori.l    #%0_1_00_00000,_Ledflg    *LEDその他の状態
  481.     lea    LedRand(pc),a1
  482.     bra    FB_L4
  483. @@:    move.w    _BgmMode(pc),d0        *0:ﾉｰﾏﾙ 1:ＢＧＭ
  484.     beq    @f
  485.     ori.l    #%10_0_00_00000,_Ledflg    *LEDその他の状態
  486.     lea    LedBgm(pc),a1
  487. FB_L4:    lea    _LEDBUF+9*16+8(pc),a0
  488.     *bsr    SetLedPat
  489.     move.l    (a1)+,(a0)+
  490.     move.l    (a1),(a0)
  491. @@:
  492.         ****左上横 LED
  493.     lea    _LEDBUF+1*16(pc),a0
  494.     move.w    _LEDTMRV,d0
  495.     beq    FB_L5
  496.     subq.w    #1,d0
  497.     bne    @f
  498.         **リバース
  499.     lea    LedRev(pc),a1
  500.     *bsr    SetLedPat
  501.     move.l    (a1)+,(a0)+
  502.     move.l    (a1),(a0)
  503.     bra    FB_L5
  504. @@:
  505.     subq.w    #1,d0
  506.     bne    @f
  507.         **トータル
  508.     lea    LedTot(pc),a1
  509.     *bsr    SetLedPat
  510.     move.l    (a1)+,(a0)+
  511.     move.l    (a1),(a0)
  512.     bra    FB_L5
  513. @@:
  514.         **トータルリバース
  515.     lea    LedTotRev(pc),a1
  516.     *bsr    SetLedPat
  517.     move.l    (a1)+,(a0)+
  518.     move.l    (a1),(a0)
  519. FB_L5:
  520.     move.w    _LUN_MAX,d0    *LUN_MAXは？
  521.     beq    FB_L6
  522.     lea    _LEDBUF+2*16(pc),a1
  523.     tst.w    _JukeBox
  524.     bne    @f
  525.     move.w    _SCSI_LUN__,d0    *LUNは？
  526.     move.w    d0,d1
  527.     addi.w    #'1',d1
  528.     bsr    SetQurtFontR
  529.     bra    FB_L6
  530. @@:    moveq    #'J',d1
  531.     bsr    SetQurtFontR
  532. FB_L6:
  533.         **** BANK ID?
  534.     tst.w    _SCSI_IDSW
  535.     beq    @f
  536.     lea    _LEDBUF+1*16(pc),a0
  537.     andi.b    #$80,(a0)            * アッパーバー
  538. @@:
  539.     rts
  540.  
  541.  
  542. FncBar2:*-------------------------------------------------
  543.     *
  544.     *    ファンクバー表示２
  545.     *        演奏中なら表示
  546.     *
  547.     tst.w    _CDIN
  548.     bne    @f
  549.     bra    CdcTitle_
  550. @@:
  551.     move.w    _TrkNo(pc),d0
  552.     bne    FB2_L1
  553.  
  554. FB2_L2:        *----------------演奏していない
  555.     moveq    #0,d0
  556.     moveq    #0,d6
  557.     bsr    ViewName
  558.     move.l    _CdTrak(pc),d0
  559.     bsr    SuziLed    *数字
  560.     move.l    _CdLong(pc),d0
  561.     bsr    SuziLed3
  562.     lea    _LEDBUF+3*16(pc),a1
  563.     moveq    #'M',d1
  564.     bsr    SetQurtFontR
  565.     moveq    #'A',d1
  566.     bsr    SetQurtFontR
  567.     moveq    #'X',d1
  568.     bsr    SetQurtFontR
  569.     moveq    #'=',d1
  570.     bra    SetQurtFontR
  571.     *rts
  572. FB2_L1:        *---------------------演奏中
  573.         *数字表示
  574.     move.l    _plyinf+4,d0        *plyinf.track_no;
  575.     bsr    SuziLed    *数字
  576.     move.l    _plyinf+8,d0        *plyinf.time;
  577.     bsr    SuziLed4        *
  578.         *0.5sの点表示
  579.     move.w    _KeyTDCT,d0
  580.     cmpi.w    #80,d0            *本当は100でいいのだがなんとなく...
  581.     bcc    @f
  582.     move.w    SL4_tim,d0        *plyinf.time;
  583.     cmpi.b    #75/2,d0        *FREAMのハーフ
  584.     bcc    @f
  585.     moveq    #'.',d1
  586.     bsr    SetQurtFontR
  587. @@:
  588.     move.l    _plyinf+4,d0        *plyinf.track_no;
  589.     move.l    _plyinf+8,d6        *plyinf.time;
  590.     bsr    ViewName
  591.     move.w    _MemLong(pc),d0        *メモリながさ 0以外ならMEMORY表示
  592.     beq    @f
  593.     moveq    #0,d0
  594.     move.w    _MemPt(pc),d0
  595.     addq.w    #1,d0
  596.     beq    @f
  597.     bsr    SuziLed2
  598. @@:
  599.     rts
  600.  
  601. FncBar3:*-------------------------------------------------
  602.     *
  603.     *    ファンクバー表示３
  604.     *        総曲数とＣＤタイトル表示
  605.     *
  606.     tst.w    _CDIN        *0:CDは入っていない 1:入っている
  607.     bne    @f
  608.     bra    CdcTitle_
  609.     rts
  610. @@:
  611.     move.l    #-1,_Ledprg
  612.     moveq    #0,d0
  613.     moveq    #0,d6
  614.     bsr    ViewName
  615.     move.l    _CdTrak(pc),d0
  616.     bsr    SuziLed    *数字
  617.     move.l    _CdLong(pc),d0
  618.     bsr    SuziLed3
  619.     lea    _LEDBUF+3*16(pc),a1
  620.     moveq    #'M',d1
  621.     bsr    SetQurtFontR
  622.     moveq    #'A',d1
  623.     bsr    SetQurtFontR
  624.     moveq    #'X',d1
  625.     bsr    SetQurtFontR
  626.     moveq    #'=',d1
  627.     bra    SetQurtFontR
  628.     *rts
  629.  
  630. FncBarK:*-------------------------------------------------
  631.     *
  632.     *    ファンクバー表示 input
  633.     *        キー入力時用
  634.     *
  635.     move.l    #-2,_Ledprg
  636.     bsr    _DisSuuziCalc
  637.     move.l    d0,-(sp)
  638.     bsr    SuziLed    *数字
  639.     lea    _LEDBUF+3*16(pc),a1
  640.     moveq    #'I',d1
  641.     bsr    SetQurtFontR
  642.     moveq    #'N',d1
  643.     bsr    SetQurtFontR
  644.     moveq    #'P',d1
  645.     bsr    SetQurtFontR
  646.     moveq    #'=',d1
  647.     bsr    SetQurtFontR
  648.     *bsr    CdTrkMax
  649.     move.l    _CdTrak(pc),d0
  650.     move.l    (sp)+,d1
  651.     bne    @f
  652.     clr.l    -(sp)
  653.     pea    FBK_nul(pc)
  654.     bsr    _SetNameLed
  655.     addq.l    #8,sp
  656.     rts
  657.  
  658. @@:    cmp.l    d0,d1
  659.     bls    @f
  660.     clr.l    -(sp)
  661.     pea    FBK_nul(pc)
  662.     bsr    _SetNameLed
  663.     addq.l    #8,sp
  664.     rts
  665. @@:    move.l    d1,-(sp)
  666.     move.l    d1,d0
  667.     add.l    d0,d0
  668.     add.l    d0,d0
  669.     movea.l    _pListLong,a0    **ながさ時間
  670.     move.l    (a0,d0.l),d0
  671.     bsr    SuziLed3
  672.     move.l    (sp)+,d0
  673.     moveq    #0,d6
  674.     bra    ViewName
  675.     *rts
  676. FBK_nul:
  677.     .dc.b    0,0
  678.  
  679. FncBarM:*-------------------------------------------------
  680.     *
  681.     *    ファンクバー表示 memory
  682.     *        メムビュー
  683.     *
  684.     move.w    _MemLong(pc),d0        *メモリながさ 0以外ならMEMORY
  685.     bne    @f
  686.     rts
  687. @@:    moveq    #0,d0
  688.     move.w    _MemPtV(pc),d0
  689.     bpl    @f
  690.     rts
  691. @@:
  692.     addq.w    #1,d0
  693.     bsr    SuziLed2    *数字
  694.  
  695.     move.w    _MemPtV(pc),d0
  696.     lea    _MemSock(pc),a1
  697.     move.b    0(a1,d0.w),d0
  698.     andi.l    #$00FF,d0
  699.     move.l    d0,-(sp)
  700.     bsr    SuziLed    *数字
  701.  
  702.     move.l    (sp),d0
  703.     add.l    d0,d0
  704.     add.l    d0,d0
  705.     movea.l    _pListLong,a0    **ながさ時間
  706.     move.l    (a0,d0.l),d0
  707.     bsr    SuziLed3
  708.     move.l    (sp)+,d0
  709.     moveq    #0,d6
  710.     bra    ViewName
  711.     *rts
  712.  
  713. FncBarS:*-------------------------------------------------
  714.     *
  715.     *    ファンクバー表示 SEEK中
  716.     *        d0=表示MSF
  717.     *
  718.     move.l    d0,d7
  719.     tst.w    _CDIN
  720.     bne    @f
  721.     bra    CdcTitle_
  722. @@:
  723.     moveq    #0,d0
  724.     move.w    _TrkNo(pc),d0
  725.     bsr    SuziLed    *数字
  726.     move.l    d7,d0
  727.     bsr    SuziLed4
  728. FBS_L3:
  729.     moveq    #0,d0
  730.     move.w    _TrkNo(pc),d0
  731.     move.l    d7,d6
  732.     bsr    ViewName
  733.     move.w    _MemLong(pc),d0        *メモリながさ 0以外ならMEMORY表示
  734.     beq    @f
  735.     moveq    #0,d0
  736.     move.w    _MemPt(pc),d0
  737.     addq.w    #1,d0
  738.     beq    @f
  739.     bsr    SuziLed2
  740. @@:
  741.     rts
  742.  
  743. *SetPtimeRev:
  744. *    *-------------------------------------------------
  745. *    *    タイム リバース
  746. *    *
  747. *    rts
  748.  
  749. FncBarV:*-------------------------------------------------
  750.     *
  751.     *    ファンクバー表示Ｖｏｌ
  752.     *        ボリューム表示
  753.     *
  754.     *bsr    FncBar2
  755.     *bsr    FncBarC
  756.     move.l    #-3,_Ledprg
  757.  
  758.     moveq    #0,d0
  759.     move.w    _Volum,d0
  760.     divu    #5,d0
  761.     andi.l    #$0000_FFFF,d0
  762.     bsr    SuziLed    *数字
  763.     lea    _LEDBUF+3*16(pc),a1
  764.     moveq    #'V',d1
  765.     bsr    SetQurtFontR
  766.     moveq    #'O',d1
  767.     bsr    SetQurtFontR
  768.     moveq    #'L',d1
  769.     bsr    SetQurtFontR
  770.     moveq    #'=',d1
  771.     bra    SetQurtFontR
  772.     *rts
  773.  
  774.  
  775. SuziLed:*-------------------------------------------------
  776.     *
  777.     *    数字表示
  778.     *        d0=数字
  779.     *
  780.     move.l    d0,_Ledtrk
  781.     move.l    d0,d1
  782.     cmpi.l    #100,d1
  783.     bcc    @f
  784.     *======99まで
  785.     divu    #10,d1    * 1の位 : 10の位
  786.     or.l    #$00300030,d1
  787.     lea    _LEDBUF+7*16(pc),a1
  788.     bsr    SetHanFontR
  789.     swap    d1
  790.     bra    SetHanFontR
  791. @@:    *======100～
  792.     lea    _LEDBUF+7*16(pc),a1
  793.     divu    #100,d1    * 100の位
  794.     lea    LedS0H(pc),a0
  795.     lsl.w    #4,d1
  796.     adda.w    d1,a0
  797.     move.l    (a0)+,(a1)+
  798.     move.l    (a0)+,(a1)+
  799.     move.l    (a0)+,(a1)+
  800.     move.l    (a0)+,(a1)+
  801.     lea    _LEDBUF+7*16(pc),a1
  802.     swap    d1
  803.     andi.l    #$0000FFFF,d1
  804.     divu    #10,d1    * 1の位 : 10の位
  805.     lea    LedS0H(pc),a0
  806.     lsl.w    #4,d1
  807.     adda.w    d1,a0
  808.     move.l    (a0)+,d0
  809.     ror.l    #4,d0
  810.     and.l    d0,(a1)+
  811.     move.l    (a0)+,d0
  812.     ror.l    #4,d0
  813.     and.l    d0,(a1)+
  814.     move.l    (a0)+,d0
  815.     ror.l    #4,d0
  816.     and.l    d0,(a1)+
  817.     move.l    (a0)+,d0
  818.     ror.l    #4,d0
  819.     and.l    d0,(a1)+
  820.     swap    d1
  821.     or.w    #$030,d1
  822.     bra    SetHanFontR
  823.  
  824. SuziLed2:*------------------------------------------------
  825.     *
  826.     *    Prog.数字表示
  827.     *        d0=数字
  828.     *
  829.     move.l    d0,_Ledprg
  830.     move.l    d0,d3
  831.     lea    _LEDBUF+3*16(pc),a1
  832.     moveq    #'P',d1
  833.     bsr    SetQurtFontR
  834.     cmpi.l    #100,d3
  835.     bcc    @f
  836.     *====== 99まで
  837.     move.l    d3,d1
  838.     divu    #10,d1    * 1の位 : 10の位
  839.     or.l    #$00300030,d1
  840.     bsr    SetQurtFontR
  841.     swap    d1
  842.     bsr    SetQurtFontR
  843.     moveq    #'=',d1
  844.     bra    SetQurtFontR
  845.     *rts
  846. @@:    *======100～
  847.     move.l    d3,d1
  848.     divu    #100,d1    * 100の位
  849.     or.w    #$0030,d1
  850.     bsr    SetQurtFontR
  851.     swap    d1
  852.     andi.l    #$0000FFFF,d1
  853.     divu    #10,d1    * 1の位 : 10の位
  854.     or.l    #$00300030,d1
  855.     bsr    SetQurtFontR
  856.     swap    d1
  857.     bra    SetQurtFontR
  858.     *rts
  859.  
  860. SuziLed3:*------------------------------------------------
  861.     *
  862.     *    TIME 数字表示
  863.     *        d0=MMM:SS:FF
  864.     *
  865.     move.l    d0,_Ledtim
  866.     move.l    d0,d3
  867.     lea    _LEDBUF+1*16+8(pc),a1
  868.     andi.l    #$0FFFFFFF,d0
  869.     cmpi.l    #$00640000,d0
  870.     bcc    @f
  871.     *======ﾉｰﾏﾙ MM:SS:FF
  872.     move.l    d0,d1
  873.     swap    d1
  874.     andi.l    #$00FF,d1
  875.     divu    #10,d1    * 1の位 : 10の位
  876.     or.l    #$00300030,d1
  877.     bsr    SetQurtFontR
  878.     swap    d1
  879.     bsr    SetQurtFontR
  880.     moveq    #':',d1
  881.     bsr    SetQurtFontR
  882.     move.l    d3,d1
  883.     lsr.l    #8,d1
  884.     andi.l    #$00FF,d1
  885.     divu    #10,d1    * 1の位 : 10の位
  886.     or.l    #$00300030,d1
  887.     bsr    SetQurtFontR
  888.     swap    d1
  889.     bra    SetQurtFontR
  890.     *rts
  891. @@:    *======ｵｰﾊﾞｰ MMM:SS:F
  892.     move.l    d3,d1
  893.     swap    d1
  894.     andi.l    #$0FFF,d1
  895.     divu    #100,d1    * 100の位
  896.     or.w    #$0030,d1
  897.     bsr    SetQurtFontR
  898.     swap    d1
  899.     andi.l    #$0FF,d1
  900.     divu    #10,d1    * 1の位 : 10の位
  901.     or.l    #$00300030,d1
  902.     bsr    SetQurtFontR
  903.     swap    d1
  904.     bsr    SetQurtFontR
  905.     moveq    #':',d1
  906.     bsr    SetQurtFontR
  907.     move.l    d3,d1
  908.     lsr.l    #8,d1
  909.     andi.l    #$00FF,d1
  910.     divu    #10,d1    * 1の位 : 10の位
  911.     or.l    #$00300030,d1
  912.     bsr    SetQurtFontR
  913.     rts
  914.  
  915. SuziLed4:*------------------------------------------------
  916.     *
  917.     *    _LEDTMRV対応.TIME 数字表示 
  918.     *        d0=MMM:SS:FF
  919.     *
  920.     *ori.l    #$8000_0000,_Ledflg        *LEDその他の状態
  921.     move.l    d0,d3
  922.     tst.w    _JukeBox            *0:ﾉｰﾏﾙ 1:JukeBox
  923.     beq    @f
  924.     andi.w    #1,_LEDTMRV            *トータル表示を無しに。
  925. @@:
  926.     move.w    d0,SL4_tim
  927.     move.w    _LEDTMRV,d1
  928.     beq    SuziLed3        *そのまま
  929.     subq.w    #1,d1
  930.     bne    @f
  931.         **リバース
  932.     move.l    d0,-(sp)
  933.     move.l    _plyinf+16,-(sp)
  934.     bsr    _subtime
  935.     addq.l    #8,sp
  936.     move.w    d0,SL4_tim
  937.     bra    SuziLed3
  938. @@:
  939.     subq.w    #1,d1
  940.     bne    @f
  941.         **トータル
  942.     pea    SL4_wrk(pc)
  943.     jbsr    _ProgTimeCalc
  944.     *addq.l    #4,sp
  945.     move.l    d3,-(sp)
  946.     move.l    SL4_wrk+4(pc),-(sp)
  947.     jbsr    _addtime_
  948.     *addq.l    #8,sp
  949.     lea    8+4(sp),sp
  950.     move.w    d0,SL4_tim
  951.     bra    SuziLed3
  952. @@:
  953.         **トータルリバース
  954.     pea    SL4_wrk(pc)
  955.     jbsr    _ProgTimeCalc
  956.     *addq.l    #4,sp
  957.     move.l    d3,-(sp)
  958.     move.l    SL4_wrk+4(pc),-(sp)
  959.     jbsr    _addtime_
  960.     *addq.l    #8,sp
  961.     move.l    d0,-(sp)
  962.     move.l    SL4_wrk(pc),-(sp)
  963.     jbsr    _subtime__
  964.     *addq.l    #8,sp
  965.     lea    8+8+4(sp),sp
  966.     move.w    d0,SL4_tim
  967.     bra    SuziLed3
  968. SL4_wrk:
  969.     .dc.l    0
  970.     .dc.l    0
  971. SL4_tim:
  972.     .dc.w    0
  973.  
  974. ViewName:*-------------------------------------------
  975.     *ファンクバーにタイトル
  976.     *    d0=曲ナンバー    0;ならＣＤ名を
  977.     *    d6=MSF オフセット値
  978.     *
  979.     andi.l    #$00FFFF,d0
  980.     move.l    d0,d7
  981.     bne    VN_L1
  982.         **ＣＤ名
  983.     tst.w    _JukeBox
  984.     beq    @f
  985.     lea    JcBxDisp(pc),a1
  986.     clr.l    -(sp)
  987.     bra    VN_L3
  988. @@:
  989.     lea    _CdName(pc),a1
  990.     clr.l    -(sp)
  991.     bra    VN_L3
  992.  
  993. VN_L1:
  994.     move.l    d6,-(sp)
  995.     move.l    d7,-(sp)
  996.     bsr    _NamePoint
  997.     addq.l    #8,sp
  998.     movea.l    d0,a1
  999.     move.l    _pListStTm,a0
  1000.     asl.l    #2,d7
  1001.     move.l (a0,d7.l),-(sp)
  1002. VN_L3:
  1003.     tst.b    (a1)
  1004.     bne    @f
  1005.     lea    VN_LR(pc),a1
  1006. @@:    move.l    a1,-(sp)
  1007.     bsr    _SetNameLed
  1008.     addq.l    #8,sp
  1009.     rts
  1010.  
  1011.  
  1012. CdcTitle_:*----------------------------------------
  1013. *    bsr    _CDROM_chk
  1014. *    cmpi.l    #-3,d0
  1015. *    bne    @f
  1016. *    bsr    _CDCOFF
  1017. *@@:
  1018. CdcTitle:*----------------------------------------
  1019.     lea    _LEDBUF+4*16(pc),a1
  1020.     moveq    #'N',d1
  1021.     bsr    SetQurtFontR
  1022.     moveq    #'O',d1
  1023.     bsr    SetQurtFontR
  1024.     adda.l    #16,a1
  1025.     moveq    #'C',d1
  1026.     bsr    SetHanFontR
  1027.     moveq    #'D',d1
  1028.     bsr    SetHanFontR
  1029.  
  1030.     lea    _LEDBUF+1*16+8(pc),a1
  1031.     moveq    #'-',d1
  1032.     bsr    SetQurtFontR
  1033.     bsr    SetQurtFontR
  1034.     moveq    #':',d1
  1035.     bsr    SetQurtFontR
  1036.     moveq    #'-',d1
  1037.     bsr    SetQurtFontR
  1038.     bsr    SetQurtFontR
  1039.     clr.b    _CdName
  1040.     clr.l    -(sp)
  1041.     pea    NoCdDisp(pc)
  1042.     bsr    _SetNameLed
  1043.     addq.l    #8,sp
  1044.     rts
  1045.  
  1046.  
  1047. SetHanFontR:*----------------------------------------
  1048.     *
  1049.     *    d1=きゃら
  1050.     *    a1=書き込みアドレス
  1051.     *[戻り]a1が次のアドレス
  1052.     move.l    d1,-(sp)
  1053.     lsl.w    #4,d1    * x16
  1054.     movea.l    HanRomAdd,a0
  1055.     adda.w    d1,a0
  1056.     move.l    (a0)+,d0
  1057.     not.l    d0
  1058.     and.l    d0,(a1)+
  1059.     move.l    (a0)+,d0
  1060.     not.l    d0
  1061.     and.l    d0,(a1)+
  1062.     move.l    (a0)+,d0
  1063.     not.l    d0
  1064.     and.l    d0,(a1)+
  1065.     move.l    (a0)+,d0
  1066.     not.l    d0
  1067.     and.l    d0,(a1)+
  1068.     move.l    (sp)+,d1
  1069.     rts
  1070.  
  1071. SetQurtFontR:*----------------------------------------
  1072.     *    8x8きゃら
  1073.     *    d1=きゃら
  1074.     *    a1=書き込みアドレス
  1075.     *[戻り]a1が次のアドレス
  1076.     move.l    d1,-(sp)
  1077.     lea    $00f3a000,a0
  1078.     lsl.w    #3,d1
  1079.     adda.w    d1,a0
  1080.     move.l    (a0)+,d0
  1081.     not.l    d0
  1082.     and.l    d0,(a1)+
  1083.     move.l    (a0)+,d0
  1084.     not.l    d0
  1085.     and.l    d0,(a1)+
  1086.     addq.l    #8,a1
  1087.     move.l    (sp)+,d1
  1088.     rts
  1089.  
  1090.     *----------------------------------------
  1091.     .globl    _SetFont,_SetFont1b,_SetSp
  1092. _SetFont:
  1093.     **
  1094.     *    SetFont(ad,f)
  1095.     *    char    *ad; 書き込みアドレス
  1096.     *    int    f;   漢字コード
  1097.     *    [戻り値] xバイト
  1098.     **
  1099.     move.l    8(sp),d1
  1100.     beq    _SetSp
  1101.     moveq    #8,d2
  1102.     *IOCS    _FNTADR
  1103.         movea.l    $400+_FNTADR*4,a0
  1104.         jsr    (a0)
  1105.     movea.l    d0,a0
  1106.     movea.l    4(sp),a1
  1107.     tst.w    d1
  1108.     beq    SF8
  1109.         *fn16
  1110.     moveq    #15,d0
  1111. @@:    move.b    (a0)+,(a1)
  1112.     move.b    (a0)+,16(a1)
  1113.     addq.l    #1,a1
  1114.     dbra    d0,@b
  1115.     moveq    #2,d0
  1116.     rts
  1117. SF8:        **fn8
  1118.     move.l    (a0)+,(a1)+
  1119.     move.l    (a0)+,(a1)+
  1120.     move.l    (a0)+,(a1)+
  1121.     move.l    (a0),(a1)
  1122.     moveq    #1,d0
  1123.     rts
  1124. _SetFont1b:
  1125.     **
  1126.     *    SetFont(ad,f)
  1127.     *    char    *ad; 書き込みアドレス
  1128.     *    int    f;   0～255 文字コード
  1129.     *    [戻り値] xバイト
  1130.     **
  1131.     move.l    8(sp),d1
  1132.     lsl.w    #4,d1    * x16
  1133.     movea.l    HanRomAdd,a0
  1134.     adda.w    d1,a0
  1135.     movea.l    4(sp),a1
  1136.     move.l    (a0)+,(a1)+
  1137.     move.l    (a0)+,(a1)+
  1138.     move.l    (a0)+,(a1)+
  1139.     move.l    (a0),(a1)
  1140.     moveq    #1,d0
  1141.     rts
  1142. _SetSp:
  1143.     **
  1144.     *    SetSp(ad)
  1145.     *    char    *ad; 書き込みアドレス
  1146.     *    [戻り値] xバイト
  1147.     **
  1148.     moveq    #0,d0
  1149.     movea.l    4(sp),a1
  1150.     move.l    d0,(a1)+
  1151.     move.l    d0,(a1)+
  1152.     move.l    d0,(a1)+
  1153.     move.l    d0,(a1)
  1154.     moveq    #1,d0
  1155.     rts
  1156.  
  1157. *SetLedPat:*----------------------------------------
  1158. *    *
  1159. *    *    a1=LedPatAdd
  1160. *    *    a0=LEDBUF
  1161. *    *
  1162. *    move.l    (a1)+,(a0)+
  1163. *    move.l    (a1),(a0)
  1164. *    rts
  1165.  
  1166.     ********************************************
  1167. LedPlay:
  1168.     .dc.b    %11111111
  1169.     .dc.b    %10111111
  1170.     .dc.b    %10001111
  1171.     .dc.b    %10000011
  1172.     .dc.b    %10000001
  1173.     .dc.b    %10000011
  1174.     .dc.b    %10001111
  1175.     .dc.b    %10111111
  1176.     .even
  1177. LedStop:
  1178.     .dc.b    %11111111
  1179.     .dc.b    %11111111
  1180.     .dc.b    %10000001
  1181.     .dc.b    %10000001
  1182.     .dc.b    %10000001
  1183.     .dc.b    %10000001
  1184.     .dc.b    %10000001
  1185.     .dc.b    %11111111
  1186.     .even
  1187. LedPause:
  1188.     .dc.b    %11111111
  1189.     .dc.b    %11111111
  1190.     .dc.b    %10011001
  1191.     .dc.b    %10011001
  1192.     .dc.b    %10011001
  1193.     .dc.b    %10011001
  1194.     .dc.b    %10011001
  1195.     .dc.b    %11111111
  1196.     .even
  1197. LedLoop:
  1198.     .dc.b    %11111111
  1199.     .dc.b    %11001111
  1200.     .dc.b    %10111111
  1201.     .dc.b    %10111111
  1202.     .dc.b    %10110111
  1203.     .dc.b    %11000011
  1204.     .dc.b    %11110111
  1205.     .dc.b    %11111111
  1206.     .even
  1207. LedRept:
  1208.     .dc.b    %11101111
  1209.     .dc.b    %11000011
  1210.     .dc.b    %10101101
  1211.     .dc.b    %10111101
  1212.     .dc.b    %10110101
  1213.     .dc.b    %11000011
  1214.     .dc.b    %11110111
  1215.     .dc.b    %11111111
  1216.     .even
  1217. LedMem:
  1218.     .dc.b    %11111111
  1219.     .dc.b    %10000111
  1220.     .dc.b    %10111011
  1221.     .dc.b    %10111011
  1222.     .dc.b    %10000111
  1223.     .dc.b    %10111111
  1224.     .dc.b    %10111111
  1225.     .dc.b    %11111111
  1226.     .even
  1227. LedRand:
  1228.     .dc.b    %11111111
  1229.     .dc.b    %10000111
  1230.     .dc.b    %10111011
  1231.     .dc.b    %10111011
  1232.     .dc.b    %10100111
  1233.     .dc.b    %10110011
  1234.     .dc.b    %10111011
  1235.     .dc.b    %11111111
  1236.     .even
  1237. LedBgm:
  1238.     .dc.b    %11111111
  1239.     .dc.b    %10000111
  1240.     .dc.b    %10111011
  1241.     .dc.b    %10000111
  1242.     .dc.b    %10111011
  1243.     .dc.b    %10111011
  1244.     .dc.b    %10000111
  1245.     .dc.b    %11111111
  1246.     .even
  1247. LedFF:
  1248.     .dc.b    %11111111
  1249.     .dc.b    %10110111
  1250.     .dc.b    %11011011
  1251.     .dc.b    %11101101
  1252.     .dc.b    %11110110
  1253.     .dc.b    %11101101
  1254.     .dc.b    %11011011
  1255.     .dc.b    %10110111
  1256.     .even
  1257. LedREW:    .dc.b    %11111111
  1258.     .dc.b    %11110110
  1259.     .dc.b    %11101101
  1260.     .dc.b    %11011011
  1261.     .dc.b    %10110111
  1262.     .dc.b    %11011011
  1263.     .dc.b    %11101101
  1264.     .dc.b    %11110110
  1265.     .even
  1266. LedRev:
  1267.     .dc.b    %11111111
  1268.     .dc.b    %11111111
  1269.     .dc.b    %10011111
  1270.     .dc.b    %10101111
  1271.     .dc.b    %10011010
  1272.     .dc.b    %10101010
  1273.     .dc.b    %10101101
  1274.     .dc.b    %11111111
  1275.     .even
  1276. LedTot:
  1277.     .dc.b    %11111111
  1278.     .dc.b    %11111111
  1279.     .dc.b    %10001111
  1280.     .dc.b    %11011001
  1281.     .dc.b    %11010110
  1282.     .dc.b    %11010110
  1283.     .dc.b    %11011001
  1284.     .dc.b    %11111111
  1285.     .even
  1286. LedTotRev:
  1287.     .dc.b    %11111111
  1288.     .dc.b    %11111111
  1289.     .dc.b    %10001001
  1290.     .dc.b    %11011010
  1291.     .dc.b    %11011001
  1292.     .dc.b    %11011010
  1293.     .dc.b    %11011010
  1294.     .dc.b    %11111111
  1295.     .even
  1296. LedNoAudio:
  1297.     .dc.b    %11111111
  1298.     .dc.b    %10001000
  1299.     .dc.b    %11000101
  1300.     .dc.b    %11000111
  1301.     .dc.b    %11100011
  1302.     .dc.b    %10100011
  1303.     .dc.b    %00010001
  1304.     .dc.b    %11111111
  1305.     .even
  1306.  
  1307. *nul
  1308.     .dc.b    %11111111
  1309.     .dc.b    %11111111
  1310.     .dc.b    %11111111
  1311.     .dc.b    %11111111
  1312.     .dc.b    %11111111
  1313.     .dc.b    %11111111
  1314.     .dc.b    %11111111
  1315.     .dc.b    %11111111
  1316.     .dc.b    %11111111
  1317.     .dc.b    %11111111
  1318.     .dc.b    %11111111
  1319.     .dc.b    %11111111
  1320.     .dc.b    %11111111
  1321.     .dc.b    %11111111
  1322.     .dc.b    %11111111
  1323.     .dc.b    %11111111
  1324.     .even
  1325.  
  1326. LedS0H:
  1327.     .dc.b    %11111111
  1328.     .dc.b    %00011111
  1329.     .dc.b    %01011111
  1330.     .dc.b    %01011111
  1331.     .dc.b    %01011111
  1332.     .dc.b    %01011111
  1333.     .dc.b    %01011111
  1334.     .dc.b    %01011111
  1335.     .dc.b    %01011111
  1336.     .dc.b    %01011111
  1337.     .dc.b    %01011111
  1338.     .dc.b    %01011111
  1339.     .dc.b    %01011111
  1340.     .dc.b    %00011111
  1341.     .dc.b    %11111111
  1342.     .dc.b    %11111111
  1343.     .even
  1344. LedS1H:
  1345.     .dc.b    %11111111
  1346.     .dc.b    %10111111
  1347.     .dc.b    %00111111
  1348.     .dc.b    %10111111
  1349.     .dc.b    %10111111
  1350.     .dc.b    %10111111
  1351.     .dc.b    %10111111
  1352.     .dc.b    %10111111
  1353.     .dc.b    %10111111
  1354.     .dc.b    %10111111
  1355.     .dc.b    %10111111
  1356.     .dc.b    %10111111
  1357.     .dc.b    %10111111
  1358.     .dc.b    %00011111
  1359.     .dc.b    %11111111
  1360.     .dc.b    %11111111
  1361.     .even
  1362. LedS2H:
  1363.     .dc.b    %11111111
  1364.     .dc.b    %00111111
  1365.     .dc.b    %01011111
  1366.     .dc.b    %11011111
  1367.     .dc.b    %11011111
  1368.     .dc.b    %11011111
  1369.     .dc.b    %11011111
  1370.     .dc.b    %11011111
  1371.     .dc.b    %11011111
  1372.     .dc.b    %10111111
  1373.     .dc.b    %01111111
  1374.     .dc.b    %01111111
  1375.     .dc.b    %01111111
  1376.     .dc.b    %00011111
  1377.     .dc.b    %11111111
  1378.     .dc.b    %11111111
  1379.     .even
  1380. LedS3H:
  1381.     .dc.b    %11111111
  1382.     .dc.b    %00111111
  1383.     .dc.b    %01011111
  1384.     .dc.b    %11011111
  1385.     .dc.b    %11011111
  1386.     .dc.b    %11011111
  1387.     .dc.b    %11011111
  1388.     .dc.b    %00111111
  1389.     .dc.b    %11011111
  1390.     .dc.b    %11011111
  1391.     .dc.b    %11011111
  1392.     .dc.b    %11011111
  1393.     .dc.b    %01011111
  1394.     .dc.b    %00111111
  1395.     .dc.b    %11111111
  1396.     .dc.b    %11111111
  1397.     .even
  1398. LedS4H:
  1399.     .dc.b    %11111111
  1400.     .dc.b    %01111111
  1401.     .dc.b    %01011111
  1402.     .dc.b    %01011111
  1403.     .dc.b    %01011111
  1404.     .dc.b    %01011111
  1405.     .dc.b    %01011111
  1406.     .dc.b    %01011111
  1407.     .dc.b    %01011111
  1408.     .dc.b    %01011111
  1409.     .dc.b    %00011111
  1410.     .dc.b    %11011111
  1411.     .dc.b    %11011111
  1412.     .dc.b    %11011111
  1413.     .dc.b    %11111111
  1414.     .dc.b    %11111111
  1415.     .even
  1416. LedS5H:
  1417.     .dc.b    %11111111
  1418.     .dc.b    %00011111
  1419.     .dc.b    %01111111
  1420.     .dc.b    %01111111
  1421.     .dc.b    %01111111
  1422.     .dc.b    %01111111
  1423.     .dc.b    %00011111
  1424.     .dc.b    %11011111
  1425.     .dc.b    %11011111
  1426.     .dc.b    %11011111
  1427.     .dc.b    %11011111
  1428.     .dc.b    %11011111
  1429.     .dc.b    %11011111
  1430.     .dc.b    %00111111
  1431.     .dc.b    %11111111
  1432.     .dc.b    %11111111
  1433.     .even
  1434. LedS6H:
  1435.     .dc.b    %11111111
  1436.     .dc.b    %10011111
  1437.     .dc.b    %01111111
  1438.     .dc.b    %01111111
  1439.     .dc.b    %01111111
  1440.     .dc.b    %01111111
  1441.     .dc.b    %00111111
  1442.     .dc.b    %01011111
  1443.     .dc.b    %01011111
  1444.     .dc.b    %01011111
  1445.     .dc.b    %01011111
  1446.     .dc.b    %01011111
  1447.     .dc.b    %01011111
  1448.     .dc.b    %10011111
  1449.     .dc.b    %11111111
  1450.     .dc.b    %11111111
  1451.     .even
  1452. LedS7H:
  1453.     .dc.b    %11111111
  1454.     .dc.b    %00011111
  1455.     .dc.b    %11011111
  1456.     .dc.b    %11011111
  1457.     .dc.b    %11011111
  1458.     .dc.b    %11011111
  1459.     .dc.b    %10111111
  1460.     .dc.b    %10111111
  1461.     .dc.b    %10111111
  1462.     .dc.b    %10111111
  1463.     .dc.b    %01111111
  1464.     .dc.b    %01111111
  1465.     .dc.b    %01111111
  1466.     .dc.b    %01111111
  1467.     .dc.b    %11111111
  1468.     .dc.b    %11111111
  1469.     .even
  1470. LedS8H:
  1471.     .dc.b    %11111111
  1472.     .dc.b    %00011111
  1473.     .dc.b    %01011111
  1474.     .dc.b    %01011111
  1475.     .dc.b    %01011111
  1476.     .dc.b    %01011111
  1477.     .dc.b    %00011111
  1478.     .dc.b    %01011111
  1479.     .dc.b    %01011111
  1480.     .dc.b    %01011111
  1481.     .dc.b    %01011111
  1482.     .dc.b    %01011111
  1483.     .dc.b    %01011111
  1484.     .dc.b    %00011111
  1485.     .dc.b    %11111111
  1486.     .dc.b    %11111111
  1487.     .even
  1488. LedS9H:
  1489.     .dc.b    %11111111
  1490.     .dc.b    %00011111
  1491.     .dc.b    %01011111
  1492.     .dc.b    %01011111
  1493.     .dc.b    %01011111
  1494.     .dc.b    %01011111
  1495.     .dc.b    %01011111
  1496.     .dc.b    %00011111
  1497.     .dc.b    %11011111
  1498.     .dc.b    %11011111
  1499.     .dc.b    %11011111
  1500.     .dc.b    %11011111
  1501.     .dc.b    %11011111
  1502.     .dc.b    %11011111
  1503.     .dc.b    %11111111
  1504.     .dc.b    %11111111
  1505.     .even
  1506.  
  1507.  
  1508.